home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
dskut
/
dm313.zip
/
DM3DIR.MNU
< prev
next >
Wrap
Text File
|
1990-03-19
|
2KB
|
58 lines
Comment
=============================================================
DM3DIR.MNU Copyright 1990 by Marc Perkel
This example brings up all directories under the current
directory and allows you to change to that directory. This
example was written to work under DM3 but can be run from the
command line by typing MARXMENU DM3DIR.
It requires that you have PIPEDIR from the Computer Tyme DOS
ToolBox, or a PIPEDIR type program that can scan your drive and
output complete file names that can be redirected to a temporary
file.
=============================================================
EndComment
Var ChooseFiles NewPath TmpFile W BoxDim
ClearScreenOnExit Off
ClearScreenFirst Off
BoxBorderColor Green Brown
BoxInsideColor Yellow Brown
BoxHeaderColor Yellow Mag
DrawBox 31,9,17,3
Write ' * Scanning * '
;Run PIPEDIR and redirect the output to a temporary file, then
;read the output file into a string array and delete the file.
TmpFile = UniqueFileName
Execute 'PIPEDIR/T/N/X>' + TmpFile
ReadTextFile TmpFile ChooseFiles
DelFile TmpFile
EraseTopWindow
if NumberOfElements(ChooseFiles) = 0 then ExitMenu
;------ this calculates the size and position of the pick window.
BoxDim[3] = Min(LongestLine + 6,ScreenWidth - 6)
BoxDim[4] = Min(NumberOfElements(ChooseFiles) + 2,ScreenHeight)
BoxDim[1] = Max(Min(50,ScreenWidth - BoxDim[3]),1)
BoxDim[2] = Max(Min(7,ScreenHeight - BoxDim[4]),1)
DrawBox BoxDim[1] BoxDim[2] BoxDim[3] BoxDim[4]
NewPath = PickOne ChooseFiles
if NewPath = '' then ExitMenu
;------ Here we remove the file name from the path.
ChDir NewPath